home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Planet Source Code Jumbo …e CD Visual Basic 1 to 7
/
5_2007-2008.ISO
/
data
/
Zips
/
MSFlexgrid20255610172006.psc
/
MSFLEXGRID sorter module
/
adoCustomer.frm
< prev
Wrap
Text File
|
2006-10-09
|
7KB
|
228 lines
VERSION 5.00
Begin VB.Form adoClsCustomer
BackColor = &H0066B4D5&
BorderStyle = 3 'Fixed Dialog
Caption = "Customer"
ClientHeight = 3630
ClientLeft = 1095
ClientTop = 435
ClientWidth = 5805
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3630
ScaleWidth = 5805
StartUpPosition = 1 'CenterOwner
Visible = 0 'False
Begin VB.PictureBox picButtons
Align = 2 'Align Bottom
Appearance = 0 'Flat
BackColor = &H0066B4D5&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 0
ScaleHeight = 300
ScaleWidth = 5805
TabIndex = 20
Top = 3030
Width = 5805
Begin VB.CommandButton cmdCancel
Caption = "&Cancel"
Height = 300
Left = 1213
TabIndex = 27
Top = 0
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton cmdUpdate
Caption = "&Update"
Height = 300
Left = 59
TabIndex = 26
Top = 0
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton cmdClose
Caption = "&Close"
Height = 300
Left = 4675
TabIndex = 25
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdRefresh
Caption = "&Refresh"
Height = 300
Left = 3521
TabIndex = 24
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdDelete
Caption = "&Delete"
Height = 300
Left = 2367
TabIndex = 23
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdEdit
Caption = "&Edit"
Height = 300
Left = 1213
TabIndex = 22
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdAdd
Caption = "&Add"
Height = 300
Left = 59
TabIndex = 21
Top = 0
Width = 1095
End
End
Begin VB.PictureBox picStatBox
Align = 2 'Align Bottom
Appearance = 0 'Flat
BackColor = &H0066B4D5&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 0
ScaleHeight = 300
ScaleWidth = 5805
TabIndex = 14
Top = 3330
Width = 5805
Begin VB.CommandButton cmdLast
Height = 300
Left = 4545
Picture = "adoCustomer.frx":0000
Style = 1 'Graphical
TabIndex = 18
Top = 0
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdNext
Height = 300
Left = 4200
Picture = "adoCustomer.frx":0342
Style = 1 'Graphical
TabIndex = 17
Top = 0
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdPrevious
Height = 300
Left = 345
Picture = "adoCustomer.frx":0684
Style = 1 'Graphical
TabIndex = 16
Top = 0
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdFirst
Height = 300
Left = 0
Picture = "adoCustomer.frx":09C6
Style = 1 'Graphical
TabIndex = 15
Top = 0
UseMaskColor = -1 'True
Width = 345
End
Begin VB.Label lblStatus
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 285
Left = 690
TabIndex = 19
Top = 0
Width = 3360
End
End
Begin VB.TextBox txtFields
DataField = "Zip"
Height = 285
Index = 6
Left = 2040
TabIndex = 13
Top = 1980
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "State"
Height = 285
Index = 5
Left = 2040
TabIndex = 11
Top = 1660
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "City"
Height = 285
Index = 4
Left = 2040
TabIndex = 9
Top = 1340
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "Address"
Height = 285
Index = 3
Left = 2040
TabIndex = 7
Top = 1020
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "Last Name"
Height = 285
Index = 2
Left = 2040
TabIndex = 5
Top = 700
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "First Name"
Height = 285
Index = 1
Left = 2040
TabIndex = 3
Top = 380
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "ID1"
Height = 285
Index = 0
Left = 2040
TabIndex = 0
Top = 60
Width = 3375
End
Begin VB.Label lblLabels
Alignment = 1 'Right el lblLabels
Alignment = 1 'Right el lblLabels
Alignment = 1 'Right el lbM6i
x = 0
LefU0gegin VB.Tex 0
1 'Right el lbM6i
Begin VB.CommandButton cmdClose
CaptiD0FFFFFF&
BorderStyle = 1 'Fixed Singlpio(H6i 1 'Fixed Singlpio(H6i 1 'Fixed Singlpio(H6i 1 6e
CaptiD0FFFFFF&
BorderStyle = 1 'Fiht elirderStyle C
